COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Take a look at JAMLIB.SAI[SUB,SYS] and possibly JAMFOR.SAI[SUB,SYS] for help.
C00010 ENDMK
C⊗;
Take a look at JAMLIB.SAI[SUB,SYS] and possibly JAMFOR.SAI[SUB,SYS] for help.
The sources used in compiling these libraries exist on the MUSIC0 User Disk Pack
under the PPN [MA,JAM], [LIB,JAM], or [<some other>,JAM]. Below are the procedures
defined in JAMLIB without the documentation on SUB,SYS. 

(from JAMLIB.HDR[SUB,SYS])

require "JAMLIB.REL[SUB,SYS]" library;

Comment - Numerical Analysis routines;

External real procedure EVALP(real array P; Integer N; real x);
External procedure LINFIT(real array F,Slope,Intercept,RMS;
	integer N,width);
External integer procedure LSOLVE(real array A,H,F;
	integer M,N,P);
External integer procedure DCOMP1(integer M,N; real array qr,alpha;
	integer array pivot);
External integer procedure SOLVE1(integer M,N; real array qr,alpha;
	integer array pivot; real array r,y);
External integer procedure LSQ(real array X,F,A; integer M,N);
External integer procedure RSQ(real array F,A; integer M,N; real SX,DX);
External Real procedure PMIN(real y0,y1,y2,y3; reference real minval);
External Real procedure PMAX(real y0,y1,y2,y3; reference real minval);
External integer procedure ROOTER(real array A; integer N;
	Reference real array Xr,Xi; real tolerance; integer maxit);
External integer procedure DECOMP(integer N; real array A,LU);
External procedure SOLVE(integer N; real array B,X);
External integer procedure IMPROVE(integer N; real array A,B,X);
External integer procedure QSOLVE(integer N; real array A,X,B);
External integer procedure INVERT(integer N; real array A,INV);

Comment - Signal processing routines ;

External procedure INIALM(real array H,K,A; integer M; real fund,clock);
External procedure ALLBUM(real array X,Y,H; integer N);
External procedure ARG(real array REALPT,IMAG,MAGNITUDE,ANGLE;
	integer N,lapnum; boolean pickup);
External real SAVSN,SAVCS,SAVAR;
External procedure ARTRAN(real array X,A,B; integer N; boolean inverse);
External procedure AUTOC(real array X; integer N;
	real array R; integer M);
External procedure FFTARB(real array A,B; integer N,Nv,Ks);
FORTRAN PROCEDURE FRXFM;
External boolean procedure GFINI(real array H; real Wc1,Wc2,clock;
	integer type,class,order);
External procedure GFILT(real array X,Y,H; integer N; boolean backwards);
External procedure GTRAN(real array X,A,B; Integer N,M,sN;
	real phi,omega,clock; boolean pickup);
External real savla,savlb;
External integer savspt;
External procedure INVFLT(real array R,A,TEMP1,TEMP2; integer M);
External procedure RTRAN(real array X,A,B; integer log2N; boolean inverse);
External procedure SNDIN(integer channel,sample_number,N;
	real array H,X; reference integer iflag);
External procedure SNDOUT(integer channel,N;
	real array H,X; reference integer oflag);
External procedure WEIGHT(real array X; integer N;
	real array D; integer M);
External procedure XRTRAN(real array A,B; integer N; boolean evaluate);

Comment - Display routines - ;

External procedure DSETUP(integer nwds; reference integer id);
External boolean procedure DRELS(reference integer id);
External procedure WRITE(integer id,pog);
External boolean procedure DWRITE(integer id,chan);
External procedure BUFCLR(integer id,nwds);
External procedure RVECT(integer id,dX,dY);
External procedure RIVECT(integer id,dX,dY);
External procedure AVECT(integer id,X,Y);
External procedure AIVECT(integer id,X,Y);
External procedure RPT(integer id,dX,dY);
External procedure APT(integer id,X,Y);
External procedure DTEXT(integer id; string text; real scale,angle);
External integer frame;
External procedure DAXIS(integer id; reference integer frame;
	string xlabel,ylabel; reference real params);
External real params;
External procedure DAXISF(integer id; reference integer frame;
	integer xlabel,ylabel; reference real params);
External procedure DPY(integer id; reference real params;
	integer npts; reference real X);
External procedure DPYS(integer id; real array X;
	integer N,Nslices,sliceN; real vxmin,vxmax);
External procedure DPYSL(integer id; real array X;
	integer N,Nslices,sliceN; string xlabel,ylabel;
	real vxmin,vxmax);
External string procedure ASC2S(integer text);
External procedure DPYSLF(integer id; real array x;
	integer N,Nslices,sliceN; real vxmin,vxmax;
	integer xlabel,ylabel);
External procedure AXIS(integer ID; real VMIN,VMAX;
	reference real SCALE,OFFSET;
	integer POS,MIN,MAX;
	boolean XAXIS);
External procedure ASCALE(real VMIN,VMAX; reference real SCALE,OFF;
	integer MIN,MAX;
	reference integer TSTART,LTSTART,LTWID,BTWID;
	reference real SI,DI);
External procedure XAXIS(integer ID,YPOS,XMIN,XMAX,
	TSTART,LTSTART,LTWID,BTWID;
	real SI,DI);
External procedure YAXIS(integer ID,XPOS,YMIN,YMAX,
	TSTART,LTSTART,LTWID,BTWID;
	real SI,DI);
External procedure TYPLOC(integer ymin,ymax);